home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / chktex.lha / chktex / ChkTeX.ced < prev    next >
Text File  |  1996-04-30  |  2KB  |  58 lines
  1. /*
  2.  *  ChkTeX v1.2, CygnusED interface.
  3.  *  Copyright (C) 1996 Jens T. Berger Thielemann
  4.  *
  5.  *  This program is free software; you can redistribute it and/or modify
  6.  *  it under the terms of the GNU General Public License as published by
  7.  *  the Free Software Foundation; either version 2 of the License, or
  8.  *  (at your option) any later version.
  9.  *
  10.  *  This program is distributed in the hope that it will be useful,
  11.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.  *  GNU General Public License for more details.
  14.  *
  15.  *  You should have received a copy of the GNU General Public License
  16.  *  along with this program; if not, write to the Free Software
  17.  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  *
  19.  *  Contact the author at:
  20.  *        Jens Berger
  21.  *        Spektrumvn. 4
  22.  *        N-0666 Oslo
  23.  *        Norway
  24.  *        E-mail: <jensthi@ifi.uio.no>
  25.  *
  26.  *
  27.  */
  28.  
  29. Options Results
  30.  
  31. If Show('Ports', "rexx_ced") Then Do
  32.     Address 'rexx_ced'
  33.  
  34.     Status 19
  35.     Filename = Result
  36.  
  37.     Status 18
  38.     Changes = Result
  39.  
  40.     If Changes ~= 0 Then Do
  41.         Msg =      'ChkTeX will process the'||'0A'X
  42.         Msg = Msg||'version of the file on disk.'||'0A'X
  43.         Msg = Msg||'This version differs from the'||'0A'X
  44.         Msg = Msg||'one in memory. Save first? '||'0A'X
  45.  
  46.         Okay2 Msg
  47.         SaveFile = Result
  48.  
  49.         If SaveFile Then Save
  50.     End
  51.  
  52.     Address Command 'rx chktex.rexx' FileName
  53. End
  54. Else Do
  55.     Say "CygnusED must be running to use this script."
  56.     Say "Please use ChkTeX.rexx instead."
  57. End
  58.